﻿<!--#include file="mymin.asp"-->
<card title="全部友链"><p>
<%

w systemMsgRoot

dim Rs,Sql,idd
idd=Request.Querystring("id")

set Rs=Server.CreateObject("ADODB.Recordset")
Sql="select * from 74hu_link where del=0 order by HU_time desc"
rs.open Sql,myconn,1,1
If Not rs.eof	Then
	Dim PageSize,i,Count,page,pagecount
	PageSize=15
	Count=rs.recordcount
	page=getN("page",1)
	if page<1 then page=1
	pagecount=(count+pagesize-1)\pagesize
	if page>pagecount then page=pagecount
	rs.move(pagesize*(page-1))
	w "共:"&count&"条友链<br/>"
	For i=1 To PageSize
		If rs.eof Then Exit For
		w "<a href=""Showlink.asp?sid="&sid&"&amp;class="&rs("classid")&"&amp;id="&rs("id")&""">"&nowml(rs("name"))&_
			"</a>(出"&rs("HU_out")&"/入"&rs("HU_in")&")<br/><a href='"&nowml(rs("URL"))&"'>查看</a>|"&_
			"<a href='Edit_link.asp?sid="&sid&"&amp;class="&rs("classid")&"&amp;id="&rs("id")&"'>编辑</a>|"
		if rs("del")="0" then
			w "<a href='DEL_link.asp?sid="&sid&"&amp;class="&rs("classid")&"&amp;id="&rs("id")&"&amp;TP=2'>删除</a><br/>"
		else
			w "<a href='hui_link.asp?sid="&sid&"&amp;class="&rs("classid")&"&amp;id="&rs("id")&"&amp;TP=2'>恢复</a><br/>"
		end if
		rs.moveNext
	Next
	w showPage("links.asp", "", page, pageCount)&"<br/>"

Else
	w "该分类暂时没有友链！"
end if%><br/>
<a href="Link_class.asp?sid=<%=sid%>">[分类管理]</a><br/>
<a href='mymin_index.asp?sid=<%=sid%>'>[友链后台]</a><%Call Last%>